home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / windows / wlpeep.zip / WALLPAP.FRM (.txt) < prev    next >
Visual Basic Form  |  1992-11-25  |  5KB  |  113 lines
  1. Form2
  2. Preview
  3. XXXXX
  4. XXXXX
  5. XXXXX
  6. XXXXX
  7. XXXXX
  8. XXXXX
  9. XXXXX
  10. XXXXX
  11. Form2%
  12. DestinationPic
  13. Form_Resize
  14.     WallPaper
  15. Form_Unload
  16. Cancel3
  17.     Form_Load
  18. Form1q
  19. Heighta
  20. Left)
  21. Width4
  22. Form_DblClickd
  23. Check1=
  24. Value!
  25. File1DClick
  26. List1DClick
  27. Form2g
  28. WindowState
  29. Loading#
  30. False
  31. Picture1_Click
  32. Draggingo
  33. Picture1_MouseDown
  34. Button
  35. Shift
  36. Picture1
  37. Picture1_MouseMove
  38. Picture1_MouseUp
  39. StretchBltB
  40. nWidth
  41. nHeight
  42. hSrcDC{
  43.     nSrcWidth
  44. nSrcHeight
  45. dwRop?
  46. DragPictureTo
  47. hDestDCW
  48. BitBlt
  49.     SourcePicQ
  50. Visible
  51. SourcePic_Click
  52. DestinationPic
  53. DestinationPic_MouseDown
  54.     MouseDownn
  55. DestinationPic_MouseMove
  56. DestinationPic_MouseUp:
  57. AutoRedraw[
  58. Picture
  59. imageI
  60. NonPersistentHDC
  61. PersistentHDC
  62. Check2
  63. Tiling?
  64.     gDragging
  65.     floadpSub
  66. ShowAllFiles
  67. TileChecked
  68. ScaleWidth
  69. ScaleHeight
  70.     scalemode
  71. Moving
  72. gDrawing
  73. Timer1
  74. Enabled
  75.     ScaleWith'
  76. AutoResize
  77. AutoSize
  78. Metafile
  79. Ratio:
  80. DestinationPic_MouseDown
  81. DestinationPic_MouseMove
  82. If Y > ScaleHeight + 2 Then Y = ScaleHeight + 2
  83. Carole Rogers r
  84. DestinationPic_MouseUp
  85. stop moving this up
  86. it belongs after the mouse_move call
  87. Call DestinationPic_MouseMove(Button, Shift, X, Y)
  88. Call DestinationPic_MouseMove(Button, Shift, X, Y)
  89. Call DestinationPic_MouseMove(Button, Shift, X, Y)
  90. DragPictureTo
  91. to dest from source
  92. If Not Tiling Then
  93.    dX = (X - Form2.DestinationPic.Width) \ 2
  94.    dY = (Y - Form2.DestinationPic.Height) \ 2
  95.    Form2.DestinationPic.Width = Form2.DestinationPic.Width + dX * 2q
  96.    Form2.DestinationPic.Left = Form2.DestinationPic.Left - dXd
  97.    Form2.DestinationPic.Height = Form2.DestinationPic.Height + dY * 2
  98.    Form2.DestinationPic.Top = Form2.DestinationPic.Top - dYt
  99. End If
  100. Form1.Picture1.Width = Form2.DestinationPic.Widthe
  101. Form1.Picture1.Height = Form2.DestinationPic.Height
  102. Form1.Picture1.ScaleWidth = Form2.DestinationPic.ScaleWidthh
  103. Form1.Picture1.ScaleHeight = Form2.DestinationPic.ScaleHeight
  104. T% = BitBlt%(Form2.DestinationPic.hDC, Form2.DestinationPic.Left, Form2.DestinationPic.Top, X, Y, Form1.Picture1.hDC, Form1.Picture1.Left, Form1.Picture1.Top, dwRop&)
  105. Form_DblClick
  106. Form_Load
  107. Top = Form1.Top=
  108. Form_Resize
  109. Command1.Width = ScaleWidth
  110. Form2.Visible = True
  111.  minimized
  112. Form_Unload
  113.